home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / Q.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  848 b   |  20 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,20:PRINT "Q U A D R A T I C  F O R M U L A  T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This will guide you through the QUADRATIC FORMULA section of M A T H  P A K."
  8. 80  LOCATE 6,2:PRINT " This section of M A T H  P A K, will calculate two roots by using the "
  9. 90  LOCATE 7,2:PRINT "QUADRATIC FORMULA."
  10. 100  LOCATE 8,2:PRINT " EXAMPLE:"
  11. 110  LOCATE 10,2:PRINT " 2x^2 - 4x + 6 = 0, has A = 2, B = -4, and C = 6."
  12. 120  LOCATE 11,2:PRINT " Enter 2 for 'A' and press <RETURN>, then enter -4 for 'B' and press <RETURN>,"
  13. 130  LOCATE 12,2:PRINT "then enter 6 for 'C' and press <RETURN>."
  14. 140  LOCATE 13,2:PRINT " If a negative square root occurs, this will be indicated."
  15. 150  LOCATE 14,2:PRINT " The value of 0 for 'A', will exit back to main menu."
  16. 160  LOCATE 20,2:PRINT "Press the S P A C E  B A R to return to disk tutorial..."
  17. 170  S$ =INKEY$:IF S$ = CHR$(32) THEN CLS:CLEAR:CHAIN"a"
  18. 180  GOTO 170
  19. 190  END
  20.